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I offer my appologies for forgetting to roll the Red Carpet out 
last issue. I did add 2 extra pages, and then forgot to celebrate our 


fourth birthday. SORRY 


I shall be away from home until about 10th October. If you want to 
be in touch with the club, please write to Ron. 


In the last issue, I missed printing the last lines of Around The 
World. Here they are:-— 


410 SET(B-4,61):SET(B-4,60): SET(b-4,59) :SET(b-4,58): SET(b-4,57) 
680 SET(33,40) :SET(32,41) :SET(31,42) :SET(32,42) :SET(33,42) 

990 A=A+1:SET(a,4) :SET(A,5) :IFA=65THENGOTO1010 

1420 A=56 

1910 A-A*1:B-B-1:SET(a,51) :SET(B,51) :IFA-51THENGOTO1930 

2460 SET(33,33) :SET(34,33) :SET(31,34) :SET(32,34) :SET(33,34) 


Remember that our club meetings are the first Sunday afternoon of 
each month. We would welcome you at them. 


At the last meeting it was decided that as a club project, we 
would build the MODEM project developed by Peter Hickman and his 
brother, and being featured in the Hunter Valley VZ Newsletter. I hope 
to give more information in the next edition. 


Bob Kitch has donated to the club, a file of articles that have 
been published haveing a bearing on the Mighty V.Z. We extend our 
thanks to Bob, not only for that, but for all the help he has given, 
not only to us, but to all VZ Users Groups, both in Australia and New 
Zealand. He is now contributing a series on the SOUND command, which 
has been neglected over the years. Thankyou Bob. 


fu 


RANDOM NUMBERS 


At the last meeting, the matter of RANDOM NUMBERS came up for 
discussion. It appears that the general assumption is that they 
will repeat themselves over again. This need not be so. It is 
only a matter of programming. Try this routine, and you will see 
that it will print ALL the numbers called for, once and once 


only. 





5 DIMA(100):CL3 

10 X=RND(100) 

15 IF A(X)=1 THEN 10 ELSE A(X)=1 

20 PRINT X;:B=B+1:IF B=100THEN 25 ELSE 10 


25 END 
That will print ALL the numbers between 1 and 100. 


It was further inferred that the generator always printed the 
same sequence. Well, that can be upset also. If you are using one 
of the Extended Basic programs, it will reseed the generator to 
give different sequences. If you do not use them, then alter line 
10 like this:-- 


10 X=RND(100)+RND(5)-RND(5) 
Add line 12:-- 
12 IF X «1 OR X? 100 THEN 10 ELSE 15 
You can alter any of those RND nos within reason. 


You will have noticed that towards the end the printing slows 
down. This is because it has only a few numbers to choose and 
many to choose from. 


15 IF A(X)=1 THEN 10 ELSE A(X)=1 


Line 15 is the line that stops repeats. The first number 
drawn (X) has not been drawn previously, so A(X) will be 
O.(A(X)=0). That number is acceptable, so it continues on. The 
next command is A(X)z1. Say 6 was the first number. A(6) will =0. 
Then A(6)is made equal 1 (A(6)=1). If 6 is drawn again A(6)=1 and 
it will go back to line 10 and get another number. 


You could add another line to print A(X). :-- 


11 PRINT A(X) 


You will get a list like this 0X0X0X0X 11 10 X. The 
X will printout. The is will go back to 10 and get another 
number, till it gets one that A(X)=0. So once a number has been 
processed once, it cannot be so again. 


Databases Wordprocessors 
opreadsheets and Viruses 


Once again I’m held to ransom. Unless I write this article I’m 
thratened with another SCREAM SHEET. Whilst I’d welcome the SCREAM 
SHEET, i”11 go easy. 


What is a Wordprocessor, Database, Spread Sheet and Virius???? 


In these days, when, you are consided illiterate unless you can 
use a computer, this query would have to come from an "illerate" 


person. 


A wordprocessor program, when loaded into a computer, allows it to 
act as a very sophisticated wordprocessor and typewriter. It allows 
text to be manipulated, stored edited displayed and otherwise dealt 


with. 


A database is for storing of data. This can be names and 
addresses, appointments, events, used as a card index, storing 
recipies, statistics and files. Book or record or stamp collections. 
Household inventry and many other uses 


spreadsheets are used for many applications. Such as analyses 
sheets for finiancial or production reckoning or checks. Or for 
scheduling sports draws. 


fuel stationary repairs rent electrity etc 
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That is two uses for Spreadsheets 


Now Virus. The dictionary says---Malignity 3;  acrimony---means a 
moral poison. So when a computer gets a electronic particle that it 
should’nt have, the slang has refered to it as a VIRUS. It is 
generally caused by a person who is not friendly, introducing it to 
cause trouble. You can forget it as far as the VZ is concerned. It is 


the large Networks that cops it. Introduced to one of the network, it 
can spread to all computers that work with one so infected. It is. 
generally introduced. in the software. When and if it is found, it is 
only a matter of destroying all the software sa infected. In our case, 
watch for which program causes the computer to start playing up, and 


then don’t use that software any more. 


Sa there is no need to loose sleep over it. By the large networks, 
I mean the banks, insurance cos., Goverment departments and suchlike. 
Maybe 1000 computers involved. Which one has the defective software??? 
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LETTERS to the EDITOR" 


I have a couple of times been asked to have a column under this 
heading. I have always been willing to have one, but have had no 
letters to put in it. You are always welcome to join in the SREAM 


SHEET. Noone has a monopoly on that, even 
OFFICIAL SCREAMER. Perhaps you could have a SCREAM about the lack of 


SCREAM sheets. 


Well now I have a letter for the column as under. 


10 CLS:FOR X=1T09: READA:PRINT CHR$(A)3 : NEXT 

iS PRINT: PRINT: PRINT 

20 FORX=1T013 :READA: PRINT CHRS(A)3: NEXT :PRINT 
30 FOR X=1T02000 

110 CLS 

120 INPUT*STRT";ST 

130 INPUT"END";LS 


140 FOR I = ST TO LS 
150 IF INS2 - INT(1N32) THEN PRINT I ELSE 160 


160 IF PEEK(I) >32 THEN PRINT CHRS(PEEKCI))s ELSE 170 
170 FOR X = 1 TO 200:NEXT 

180 NEXT i 

190 A11 the best. R.H. 


( TRY 15596 TO 15912 ed.) 


RIGHT'' WHO'S NEXT??? (ed). 


though we do have an 


EXXX DATABASES XXX 


This is the second program. It is a 
DATABASE with any number of fields. For 
handling, all the fields of each entry 
are concatenated. 


Concatenating means to add the 
various DATA together to make one 
string. This is done in lines 960 and 
965. The data input is Q$. (line 250). 
The string will be P$(T). line 960 we 
add Q$ to P$(T), and add 2 spaces to 
seperate the fields. You can add more 
spaces if you wish. (They count in the 
220 bytes allowed.) The next and 
subsequent fields P$(t) becomes P$(T) 
plus Q$ plus spaces. 


The first portion is the same as 
part 1 printed last issue, so if you 
have printed that in, it is only a 
little deleting and insertion of 3 or 4 
sections to have this one too. 


10 REM *** VZDUDATA-2 ***:30—6-90:by 
H.M.Huggins 

15 CLS:PRINT:PRINT:PRINT:LIST20 

20 LOAD'XB':ONLY"DE", "DI" 

THEN RUN 30 

30 CLS:GOTO120:REM VZDUDATA-2 

45 REM "eexekkx SAVING eee nik 

90 CLS:PRINT:STATUS: XDIR: PRINTG405 ,"T= 
"T: PRINTG420, "SAVING" 

55 

INPUT" NAME" ;G$ : INPUT"FROM/TO":;C,P: IFC=0T 
HENC=1 :P=T 

60 OPEN""+G$,1:PR+""+G$,P 

65 

FORI=CTOP : PR#''''+G$,P$ (I) :PRINTG440,I:NEX 
T: CLOSE"'''+G$ : GOTO200 

75 REM 

80 REM * OR LOADING seeeeeecoocek 

85 CLS:XDIR: PRINT 0420, "LOADING": 
INPUT"NAME'";g$: IFG$-'''THEN135 

90 

OPEN" "'"4G$,0: INPUT' "FROM/TO" ;C,P: IFC=0THEN 
95ELSE100 

95 IN+""+G$,P:C=1 

100 
FORI-CIOP:INE'"'"4G$,P$(I):PRINIG440, I : NEX 
T:T=P 

105 CLOGE"'4G$:GOTO200 

110 CLOSEG$ : RETURN 

111 * 


* oo o oe e x ex SET-UP KKKKKKK KKK 


a LO M MM EE d 

125 DIMP$ (900) : DRIVE1 

130 T=0:F=0:C=0:Y=1:A=1:Z=1 

135 G$=""NO NAME" 

190 REM* * X ENT II IR 

200 POKE30777,1:CLS:GOSUB110:PRINIQ75, "MENU" 
205 PRINT:PRINT 

210 PRINT" Jw "TTA" DRIVE-";A 
219 PRINT" V-IEW'";TAB(15) 'W-RITE' 

220 PRINT" E-DIT";TAB(15) 'X-MEMORY" 

225 PRINT" L-OAD";TAB(15)''S-AVE" 

230 PRINT" O-VER-RIDE T" 

239 PRINT" D-STATUS-DIR"; TAB(15) A-ALPH SORT' 
240 PRINT" P-LPRINT'";TAB(15)'"T-SET DRIVE 
250 POKE30777,35 

299 Q$-INKEY$:O$-INKEY$:IFQ$-'''THEN255 

260 IFQ$="A''THENGOSUB1100: 'SORT 

265 IFQ$="D"'THEN3S55: 'DIR 

270 IFQ$="E"'THEN1000 ' EDIT 

280 TFQS$="L"THENSS: 'LOAD DISK 

285 IFO$="X"THEN650 : 'MEM 

290 IFO$="O"THEN350 'SET P 

295 IFQ$-'P'THEN60O: 'LPRINT 

305 IFO$-'S'"THEN5O'SAVE DISK 

310 IFO$="T""THEN335'SET DRIVE 

315 IFO$="V""THEN700 ' VTEW 

320 IFQ$="W"THEN900: ' WRITE 

322 IFQ$="M"THEN200 ELSE255: GOTO255: 'menu 


330 REM ****** UTILITIES xxx 
335 CLS:INPUT'"DRIVE 1 OR 

2 ; A:IFA-1THENSAOELSE345 

340 DRIVEI:GOTO200 

345 DRIVE2:GOTO200 

350 CLS: INPUT"T=??';T:GOTO200 

355 CLS: STATUS: XDIR 

360 PRINT:PRINT"HIT «D» OR «M»? OR «S» OR 
<L>" :GOTO259 


600 CLS : REM* * x * * * * x LPRINT QUIPUT KKKKKKK kK 
605 *LPRINTCHR$ (27) ;"M";: 

610 

INPUT"'FROM/TO" ; A,B: INPUT"TAB(N) (0—20—40—62MAX 
)';N 

615 FORJ=ATOB 

625 LPRINTTAB(N)P$(J) 

630 NEXT 

635 INPUT"AGAIN 
Y/N";B$:IFB$2"N'"THEN2OOELSE610 


650 REM***ákř MEMORY **kžkákk*íííí 
655 CLS:POKE30862, 212: POKE30863, 39 
660 PRINTUSR (X) ; USR(X$) 

665 INPUT"MENU-RETURN" ; X: GOTO200 


700 CLS:REM***Joieoo eJ TE A Ae He e Ae de ke e e ke 
710 PRINTGO, "SPACE=+1 :< . >=-1 :< : >"START 
715 PRINT@32,"E=EDIT ;M=MENU 
720 INPUT"START VIEW LINE NUMBER"; X 
725 PRINT"PRESS SPACE OR FULLSIOP OR 
COLON 
735 POKE30777,1:PRINTX; TAB(S)P$ (X) 

740 K$=INKEYS : K$=INKEYS 

750 IFK$=" "THENX=X+1 : GOTO735 

755 IFK$=":'"THENCLS : GOTO700 

765 IFK$="E"THENGOSUB 
1010:CLS:PRINT"PRESS SPACE" 

770 IFK$=".'"THENX=X-1 : IFX< 1THENGOSUB 
785ELSE735:GOTO735 

775 IFK$-'"M'"THEN2OO 

780 GOTO740 

785 X=1:RETURN 


Up to here the 2 programs are almost 
the same. We have considerable 
differences from here on; except the 
sorting routine which is exactly the 
same. 


In the write section we determine 
how many fields we have. They can be 
altered anytime in the program. Go back 
to MENU and press <<W>>. You will be 
asked how many fields. Just help 
yourself. You may have as many às you 
need, BUT all fields added together 
MUST have LESS than 215 characters. If 
you exceed that the program will break 
with a message of <<STRING TOO LONG>> 
and that string will not be included. 
Just type << GOTO 200 >> and continue. 
The same restriction applies to data put 
in in the EDIT mode. Remember 215. That 
is about 7 lines. That 215 may be made 
up of 4 strings of 53 chars. or 54 
strings of 4 chars. 


Depending on what you intend to use, 
you have to base your DIM. If you intend 
to use the whole 215 in each entry, then 
you will dim P$ as 88. That gives you 
616 lines of printout. Using less than 
215 will give you more entries, but 
still 616 lines. In this program you 
don't have to state the length of your 
longest entry. Just put it in. The 
program will adjust to it. 


900 CLS:REM*****WRITE******* 
910 T=T+1:V=1 


920 PRINT"HIT RETURN FOR MENU" 
921 PRINT:PRINT 
925 PRINT"YOU MAY HAVE AS MANY FIELDS AS YOU 
WISH" 
926 PRINT"HOWEVER ALL FIELDS TOGETHER MUST" 
927 PRINT'"HAVE LESS THAN220CHARACTERS : ABOUT 7 
LINES" 
930 PRINT:PRINT:INPUT'NO OF FIELDS ;Y 
940 FORZ=ZTO1200 : Z$=STR$ (Z) 
950 PRINIV;Z:INPUIQ$S:IFQ$-'''THEN99Q0 
955 IFV=1THEN960ELSE965 
960 P$(T)2Q$4-" | ":GOTO970 
965 P$(T)=P$(T)+$+" " 
970 V=V+1: IFV>YTHEN980ELSE985 
980 T=T+1:V=1:PRINT:PRINT 
985 NEXT 
990 T-T-1:GOTO200 


The EDIT also is vastly different, 
because you could find an entry 7 lines long 
and the VZ will only handle 2 lines. So to 
get around that, if you want to alter an 
entry, you delete it and write it again. The 
entry is not cleared off the screen, but left 
there for you to copy as much as you don't 
want to alter. You nominate the entry number 
you want. It is printed for you. You are 
given the option to delete it or not. If not 
it goes on to a menu. Press space for the 
next or Fullstop for the previous, same as in 
the VIEW. If you delete it you are asked how 
many fields. Then an,input for each field is 
presented. Press <<M>> for menu. 


1000 REM ***kkkákákíá EDIT **kkákkíkýí 
1015 INPUT"NO. TO EDIT";X 

1010 CLS:PRINT:PRINT:PRINT' FILE 

NO. ; X: PRINT: PRINT: PRINTP$(X) 

1012 

PRINT:INPUT"DELETE.Y/N";K$: IFK$- Y" THEN1015EL 
SE1070 

1015 P$(X)="" 

1020 INPUT"HOW MANY FIELDS"; Y 

1030 FORZ=1TOY:PRINT"ENTER FIELD"; 2: 

1040 INPUTOS 

1050 P$(X)=P$(X)+0$+" —":NEXT 

1070 K$-INKEY$:K$-INKEY$ 

1075 IFK$-" '"THENX=X+1 :GOTO1010 

1080 

IFK$="'. "THENX=X—1 : IFX< 1GOSUB1090ELSE1010 : GOTO 
1010 

1082 IF"K$=",'THEN RETURN 

1085 IFK$-'"M'THEN2OOELSE1070 

1090 X==1 : RETURN 


The SORTING is the same as part one. It was 


PEPE KENO EFEFEF 


4 'KENO 1990 BY IAN NIEDZUIECKI DENILIQUIN 
9 CLEAR1000:DIMA (80) :M=448: X=0:CLS:CT=0:L=5:60T07000 
6 B=0:C=0:D=0:E=0:F=0:G=0:H=0: 1=0:J=0:K=0:2W=0 : X=0 


10 FORZ=43T0331STEP32:PRINTOZ,"  ":NEXT 
12 FORZ=44T0332STEP32:PRINTOZ," "¿NEXT 

14 FORZ=48TO336STEP32:PRINTOZ," "¿NEXT 

16 FORZ-49TOS337STEP32:PRINTGZ,"  ":NEXT 

18 PRINTG480, " "y 
19 PRINTG448, " " 
20 PRINTG391," . ":'GOTOÓ6OOO 


100 PRINTG422,"E3 YOUR SELECTIONS Ej" 

105 X=X+1: IFX>10THEN135 

110 READAS 

115 PRINT@384," " 

120 PRINTe384,X;0$;" NUMBER"; : INPUTN(X) 

125 IFN(X)<10RN (X) >BOTHEN1 15ELSE 130 

130 P(X)=N(X):G0SUB140:GOTO105 

135 PRINTE384," ":GOTO225 

140 FORZ=OTOX-1:IFP(Z)=N(X) THENI 1SELSENEXT 

145 GOSUB160:M=M+3: RETURN 

150 DATA"ST" : "ND" ; "RD" ; "TH" : "TH" ; "TH" : "TH" š "TH" ; "TH" ; " TH" 
160 PRINTGM,N(X) : RETURN 

225 REM 

235 Y-331 

240 A=RND(80) 

245 IFA(A)=1,240ELSEA(A)=1 

260 GOSUB2000 

280 PRINTGY,A:SOUND15, 1 

285 GOSUBSOO 

300 Y=Y-32 

320 IFY=11,Y=336 

340 IFY=16,FORA=1T01000:NEXT:GO0T0600 

360 GOTO240 

SOO IFN(1)24,B-10:S0UND31,1; 31, 1: PRINTGA81 , "Ei" ; 
S10 IFN(2)=A,C=10:SQUND31,1;31,1:PRINT@484, "Hey"; 
S20 IFN(3)=A, D=10:SQUND31,1;31, 1:PRINT@497, "Bad" 
S30 IFN(4)=A,E=10:SOUND31, 1331, 1: PRINTG490, "IZ" ; 
540 IFN(S) -A,F210: SQUNDS1,1; 51, 1: PRINTG493 , "Key"; 
550 IFN(6)=A,G=10:SOUND31, 1331, 1:PRINT@496, "HEX" s 
360 IFN(7)=A,H=10:SOUND31,1;31,1:PRINTG499, "HEH" ; 
570 IFN(8)=A,1I=10:SO0UND31,1;31,1:PRINTOSOZ, "EEN": 
580 IFN(9)=A,J=10:SOUND31, 1331, 1:PRINT@505, “EEN” 
590 IFN(10)-4,K-10:SQ0UND31,1;31, 1: PRINTGSOSB, "E33" ; 
595 RETURN | 

600 IFB+C+D+E+F+G+H+1+J+K<30,700 

605 IFB+C+D+E+F+G+H+I+J+K=30,710 

610 IFB+C+D+E+F+G+H+I+J+K=40,715 

615 IFB+C+D+E+F+G+H+I+J+K=50,720 

620 IFB+C+D+E+F+G+H+I+J+K=60,725 

625 IFB+C+D+E+F+G+H+I+J+K=70,730 

630 IFB+C+D+E+F+G+H+I+J+K=80,735 

635 IFB+C+D+E+F+G+H+I+J+K=90,740 

640 IFB+C+D+E+F+G+H+I+J+K=100,745 


we PPS OK 


700 
710 
715 
720 
725 
730 

735 
740 

745 
BOO 

B03 
805 

810 
840 
850 
855 
857 
860 
862 
865 
870 
880 
900 
910 
911 

915 
916 
917 
920 
925 


W=0: GOTOBOO 

W=20:G0T0803 

W=50:G0T0803 

W=100:G0T0803 

W=150:GOTO803 

W=300:GOT0803 

W=500:GOTO803 

W=800:GOTO803 

W=1500:GOTO8O3 

GOSUBO8S0: PRINTG4106 , "MNRERENE3S" ; :PRINTG425,L: CT2CT-5: GOTOBOS 
CT2CT4*W-L:GOSUB880:PRINTG416 , "HINC ME" ; :PRINTG425,W-L 
S0UND31,1315,2;331,1;15,2;25,2;12,2;31,3;0,9;0,9 
PRINTG416, " " SPRINTG417, "[Bziziragi"; CT 
PRINTQG437 , "[IefzMil" ; :PRINTGAA4S, "Y/N?"j 

A$=INKEYS: A$=INKEYS 

IFA$-"",850:1FA$«»" ",850 

IFAS="N", 1000 

IFAS="Y",GOTOI00 

GOTO850 

PRINTG24, " "s :PRINT@5S9, " "s s RUNS 

GOTOS85O 

PRINT@4164, " "RETURN 
FORA=1TO80rA(A)=O0:NEXT 

PRINT@384, " " 
PRINTG416, " 4 
PRINT@384, "SAME NUMBERS?" 

FORX=1T0200:NEXT 

K$=INKEYS : K$=INKEYS 

IFK$="N" THENG 

IFK$-"Y'"THENSOOOELSE917 


1000 
1010 
1020 
2000 
2012 
2014 
2016 
2018 
2020 
2022 


CLS:POKE30744, 1:PRINT@167, "THANKS FOR PLAYING" 
PRINT@225, "YOU ARE LEAVING WITH "; CT;"COINS" 
S0UND1,4;31,45,1,45 31,45; 1,7; 31,8: POKESO744 , O: CLS: END 
REM 

PRINTG99, "IIl" : PRINTG99," ":PRINTG121, "IE" : PRINTG121," " 


PRINTG68, "IE": PRINTG68," ":PRINTGBB,"()":PRINTGBB," " 
PRINTG37, "lI" :PRINTGZ7," ":PRINTGSS,"I":PRINTeSS," " 
PRINTG6, "Àj" : PRINTG6," ":PRINTG22, "IE" : PRINTG22," " 
PRINTG7,"l]":PRINTG7," ":PRINTG21,"[E" :PRINTG21," " 
PRINTGB, "[]" :PRINTGB," ":PRINTG2O, "IE" : PRINTe20," " 
PRINTG9,"(]":PRINTG9," ":PRINTOG19,"[U" : PRINTG19," " 
PRINTG10, "li" :PRINTG10," ":PRINTG18, "IE" ;PRINTG18," " 


PRINTG11,"[E":PRINTG11," ":PRINTG17,"[E" : PRINTG17," " 
RETURN | 

COLOR4,0: FORS=28713T029033STEP32:POKES, 128: NEXT 
FORSz29034T029044:POKES, 140: NEXT 
FORS=28725TO029045STEP32: POKES, 128: NEXT 

FORS=287 19TO29039STEP32: POKES, 128: NEXT 


PRINT@129, " emma ":PRINT@152, " soma ' > REM SHIFT + AYYYYS 
PRINT@161," 4 | ":PRINTE184,"I BM": REM SHIFT + I U 
PRINTG193," IKENOR " : PRINTG216, " IKENOÍ " : REM SHIFT +  IKENOU 
PRINT@225," l J":PRINTE248," 1 l":REM SHIFT + I U 


PRINTG257," -—- ". DRINTG280, " mem "REM SHIFT + DTTTTF 
GOTO100 

FORZ=28773T1028793:POKEZ, 128: NEXT 
FORZ-28805T028825: POKEZ, 128: NEXT 
FORZ-28837T028857 : POKEZ, 128: NEXT 
FORZ=28869T028889:: POKEZ , 128: NEXT 


FOR7=28901T028921 :POKEZ, 128: NEXT 
FOR7=28933T1028953:POKEZ,128: NEXT 
FORZ=289657T028985: POKEZ, 128: NEXT 

FORZ=28997 17029017: POKEZ, 128: NEXT 
FORZ=29029T029049: POKEZ, 128: NEXT 

POKE28846, 191: POKE28974, 191: FORZ=28848T028976STEP32 
POKEZ,191:NEXT:POKE28845, 191: POKE28909, 191: POKE28973, 191 
POKE28881, 185: POKE28844, 191: POKE28908, 191: POKE28972, 191 
POKE28914,185:FO0RZ-28843T0289718TEP32: POKEZ , 191: NEXT 
FORZ:28851T0289798TEP32: POKEZ , 191: NEXT: POKE28841 , 182 
POKE28969, 185: FORZ=28853T1028981STEP32:POKEZ, 191:NEXT 
POKE29872,182: POKE28936, 185: POKE28854, 191: POKE28982, 191 
POKE28903, 191: POKE28855, 191: POKE28985, 191 
FORZ=28838T028966STEP32:POKEZ,191: NEXT 
FORZ-28856T0289848TEP32: POKEZ , 191: NEXT 
SQUND31,2515,25;31,1515,15;27,25;12,23 51,1510, 35 31,25; 15,2,10,2 
PRINTG487," INSTRUCTIONS Y/N'; 

AS=INKEYS: AS=INKEYS 

IFAS="",7200: IFAS< >" ", 7200 

IFAS="N",CLS:GOTO&6&000 

IFAS="Y", 7230 

CLS: PRINTG43, "Ai EE" 

PRINT: PRINT" THE RULES ARE FAIRLY STRAIGHT-" 
PRINT"FORWARD. YOU ARE REQUIRED TO " 

PRINT"PICK 10 NUMBERS FROM A POSSIBLE" 

PRINT" 80. YOUR WINNINGS WILL DEPEND" 

PRINT"ON HOW MANY NUMBERS YOU CAN " 

PRINT" MATCHUP WITH THE COMPUTER" 

PRINT" EACH TURN COSTS YOU FIVE COINS" 

PRINT:PRINT" UNDER El=0: El NOS=20: Gi NOS=50" 

PRINT" bi NOS=100: (8 NOS=150: Id NOS-300"; 

PRINT” El NOS=500: El NOS=800: [Mi] = 1500"; 

PRINT:PRINT" LCH LUC jh 

PRINT@484,"PRESS <C> TO CONTINUE"; 

AS=INKEYS$: AS=INKEYS 

IFAS="",7310: IFAS< >" ",7510 

IFAS="C",CLS: GOTQ6000 
B=0:C=0:D=0:F=0:F=0:G=0:H=0: I=0: J=0: K=0:W=0: X=0 

M=448: RESTORE 


FORZ2-243TOSS1STEP32:PRINTGZ,"  ":NEXT 
FORZ=44T0332STEP32:PRINTEZ,“  ":NEXT 
FORZ-S4B8TOSSG6STEPS2:PRINTGZ,"  ":NEXT 
FORZ=49T0337STEP32:PRINTEZ," | ":NEXT 

PRINTE480, " "3 
FORXz1TO15:PRINTG384,CHR$ (127) :NEXT 

PRINTG416, " "sPRINTG422,"X YOUR SELECTIONS x" 


GOTO235 


LETS INVESTIGATE SOUND OM THE VZ. 


PART 1 


by Bob Kitch. 
GQERQEQEEGEEEEEEEGECEE 


Sound or music has not been featured in most VZ software. 
During a number of brief articles, I will discuss the generation 
of sounds on the VZ. I will also provide some thought provoking 
program listings. I thoroughly enjoy computer generated or 
synthesized music. The VZ can also be used as a controller in 


music generation. 


BACKGROUND 


The VZ tone generator uses a small piezo speaker connected 
across two bits of the I/O latch. Clearly there is not much 
hardware involved - which is why all the sound generation depends 
upon software. 


The obvious shortcomings of this method are twofold: 


Firsty, only single voiced melodies can be played and, 
secondly, nothing else can be done whilst playing as the 280 is 
fully occupied. To improve upon this situation, some additional 
hardware is required, such as an additional sound generating 
chip. 


Tone generation is a periodic phenomenon and requires 
frequent setting and resetting of the two bits driving the 
speaker. The VZ's I/O latch is addressed at 6800H. Bits O and 5 
drive the speaker in a push-pull mode. This means that bits 5 and 
0 must be complimentary to drive the speaker. The same latch also 
controls the cassette port on the VZ and this may be used for 
recording tones. Bits 1 and 2 similarly drive the cassette port. 


The faster that bits O0 and 5 are switched (set and reset), 
the higher the pitch (or frequency) of the tone that will be 
issued from the VZ's speaker. The normal audio spectrum extends 
from 20 to 20000 Hertz or cycles per second. For example, the 
"middle C" on a piano is 262 Hz or a period of 3.8 millisec. 
(period is the reciprocal of frequency) 


The quality or timbre of the sound is quite independant of 
pitch or frequency. A trumpet sounds quite distinctive to a 
trombone because of the different timbre of each instrument. 
Mathematically this may be expressed as the presence of 
"harmonics" being present above the fundamental frequency. In 
terms of sound generation, this is characterized by the duty 
cycle of the waveform. Normally in the VZ, the two bits at 6800H 


are switched on and off at the same rate. This results in a 
square wave form of output that is defficient in harmonics. The 
duty cycle is 50:50. This means that the "on period" is of the 
Same duration as the "off period". By varying this ratio, some 
interesting sounds can be generated. 


A third parameter governs sound. In addition to pitch and 
timbre, loudness plays a part. Unfortunately on the VZ this 
cannot be varied independantly of timbre. 


VZ SOUND SYNTHESIS. 


The simplest way to generate sound on the VZ is to use the 
facilities provided by the SOUND command in the BASIC Interpeter. 
This is very useful and convenient and was one of the 
"improvements" that the VZ had over the earlier TRS-80 computers. 


Enter my listing entitled "STARWARS" and listen to the tune. 


There are a couple of points to observe in this tune. The 
volume and tone (timbre) of the melody cannot be varied. In a 
couple of places, the timing of the tune is delayed whilst the 
Interpeter is writing to the screen. The timing is also varied in 
a couple of other places as triplets (a note of a certain 
duration) are used and these are not provided in the Interpeter. 
All-in-all though, the VZ makes a pretty fair fist of it. 


Next time we will discuss the BASIC Interpeter and actually 
the means by which software commands are converted in to physical 
sound waves. 


1K OOK OK OK OK OK OK CK OK OK KK A CK 


x STAR WARS THE TE A 
Ak BY BOB KI TCH XK 
A 20/8/90 A 


KKK A KA AA 


70 CLS:PRINT@480,"A LONG TIME AGO" 

80 PRINT" IN A GALAXY FAR,FAR AWAY" 

90 PRINT"A GREAT ADVENTURE TOOK PLACE.";:FOR I-0 TO 1000:NEXT I 
100 SOUND 6,1:;6,1;6,1 

105 PRINT:PRINT:PRINT"IT IS A PERIOD OF CIVIL WAR."; 
110 SOUND 11,4;18,4 

120 SOUND 16,1;15,1;13,1;23,4;18,2 

130 SOUND 16,1;15,1;13,1;23,4;18,2 

140 SOUND 16,1:15,1;16.1:13,4:6,2;6,1 

145 PRINT:PRINT 

146 PRINT"REBEL SPACESHIPS":PRINT" FIGHTING FROM A HIDDEN BASE"; 
150 SOUND 11,4;18,4 

160 SOUND 16,1;15,1;13,1:23,4;18,2 

170 SOUND 16,1;15,1;13,1;23,4;18,2 

180 SOUND 16,1:15,1;16,1;13,4;6,2;6,1 

185 PRINT:PRINT"HAVE WON THEIR FIRST VICTORY"; 

190 SOUND 8,3;8,1;16,1;15,1;13,1;11,1 

200 SOUND 11,1:;13,1;15,1;13,2;8,1;10,2;6,2;6,1 

210 SOUND 8,3;8,1;16,1;15,1;13,1;11,1 

220 SOUND 18,1;13,1;13,4;6,2;6,1 

225 PRINT:PRINT"AGAINST THE EVIL GALACTIC EMPIRE"; 

230 SOUND 8,3;8,1;16,1;15,1;13,1;11,1 

240 SOUND 11,1;:13,1;15,1;:13,2;8,1;10,2;18,2;18,1 

250 SOUND 23,2;21,1;20,2;18,1;16,2;15,1;13,2;11,1 

260 SOUND 18,5 

300 SOUND 6,1;6,1;6,1 

305 PRINT:PRINT" DURING THE BATTLE"; 

310 SOUND 11,4;18,4 

320 SOUND 16,1;15,1;13,1;23,4;18,2 

330 SOUND 16,1;15,1;13,1;23,4;18,2 

340 SOUND 16,1;15,1:16,1;13,4;6,2;6,1 

345 PRINT:PRINT"REBEL SPIES MANAGED "; 

346 PRINT"TO STEAL SECRET PLANS TO THE EMPIRE'S n 
347 PRINT "ULTIMATE WEAPON“; 

350 SOUND 11,4;18,4 

360 SOUND 16,1;15,1;13,1;23,4;18,2 

370 SOUND 16,1;15,1;13,1;23,4;18,2 

380 SOUND 16,1;15,1;16,1;13,4;18,2 

385 PRINT:PRINT:PRINT" THE DEATH STAR.":PRINT 
390 SOUND 23,8 

400 SOUND 23,1;23,1;23,1 

410 SOUND 23,1 

415 PRINT'"- AN ARMOURED SPACE STATION" 

416 PRINT"WITH ENOUGH POWER TO DESTROY AN ENTIRE PLANET."; 
420 FOR I-0 TO 2000:NEXT I 

430 CLS:PRINTO195, "MAY THE FORCE BE WITH YOU."; 

440 FOR I-0 TO 1000:NEXT I 

450 PRINTQ9430,"" 

500 END 


WORD PROCESSORS 


A Wordprocessor is a computer program designed to make it easy to 
prepare documents such as letters and reports. You type your document 
on the computer keyboard, and it is displayed on the screen, allowing 

changes to be easily made. You can make simple changes like spelling, 
or insert paragraphs, or shift them to other locations or delete them. 
The text you type in is stored in memory, and can be saved to tape or 
disk for future use, or printed out at once. 


This series, written by Don Dower and myself, is aimed to give an 
idea of what you may expect from the 3 wordprocessors available for 
the VZ. 


The first was the DSE W.P written by Epps & Fakenel. It is the 
simplest and still the most widely used. It was a tape based unit, 
and needed the 16K expansion memory for both the 200 and 300. There 
has been 3 "PATCHES" brought out for it by various people to convert 
it to disk use, and 1 modification to allow it to use the full memory 
available, and one to allow tailoring to your own format. I will deal 
with them after a brief rundown of the parent processor. 


The E&F W.P loads into the computer, and has available about 15K 
of useable memory. That is about 4 pages of typescript. This can be 
Saved for later use, the memory cleared, and another 15K typed in. It 
will Merge several shorted files if needed. 


It has upper 8 lower case letters, left margin setting, line and 
page length control, right justify, (that is getting the right side of 
text in a straight line), search and a search and replace command, can 
shift blocks of text from place to place or copy blocks to other 
locations. Can skip performations on fanfold paper, can double line 
space and printout multiple copies. It has automatic text wrap-around 
facilities, so you just type on and don't worry about the end of a 
line. The editoring is done "On screen", by simply moveing the cursor 
and typeing in or deleting. Another VERY useful function, is that it 
will print on the screen how it will on the hard copy. That is your 
choice of characters per line and lines per page, and will give a 
result of how many character, lines and pages. A very useful tool for 
an editor. It is very annoying to print something out, and it goes to 
the last page to print 1 word. 


The first patch I'll mention was PATCH 3.1 by Dave Mitchell. This 
allowed the use of disk or tape for saving or loading, and was a great 
boon to us. 


This was later followed by PATCH3.3, also by Dave. This allowed 
the use of disk or tape, and had control codes to control the printer. 
This allowed the full use of all that the printer was capable of, such 
as Near Letter Quality, Wide, double height, quadruple height and 
width, Italic, underline or overline, compressed or spread printing, 
alteration of line spacing etc. To obtain these you fed in the normal 
printer codes, ie. 27,120,49 etc.. These can be put in anywhere in the 
line. It also has a shift lock. This is the set-up I use in the 
Newsletter. 


This patch is still available from Hunter Valley V.Z Users group. 


» 


With it comes an auxilery program that allows Basic or Source 
programs to be converted to W.P files. Since I started using it you 
may have noticed a whole series of REMs missing from the Basic Made 


Easy series. 


Another Patch was by Russell Harrison. It allowed use of Disk or 
Tape, and had printer control as well. However there is only a choice 
of 6 formats available. You may choose which six. They are controlled 
by Graphic Blocks. It also has a feature to center or right or left 
justify. A very handy feature is the ability to skip through the text 
from space to space, instead of one letter at a time. It is still 
available from Bob Kitch. 


The first modification was called The Smart W.P. It used a monitor 
to alter some pointers, so that it would locate at the top of whatever 
memory you had. This gave about an extra 7K bytes available for use 
with the memory expansions in use, and also allowed it to run on an 
unexpanded VZ300. Both useful facilities. That was by Bob Kitch. 


The other modification was to allow you to tailor it to your most 
used format. This means that when loaded the characters per line, 
lines per page, margins etc were already set to your choice. This was 
by Dave Mitchell. 


In between these patches DSE brought out a plug-in cartridge, that 
fits in place of the memory expansion. It contained the W.P. program 
and it's own memory. So this will run on the 200 or 300, without the 
memory expansion. It has most of the facilities of the first ESF 
processor, with the added advantage that there is no loading required. 
It is there at switch-on. It has printer control, again as 
"27,120,499". Has centring facilities, and also Tabulation stops. Two 
modes of operation. That is as the normal keyboard that overprints a 
Character for correction, or as the original, will insert between 
characters. Both are useful and are selected from the keyboard. It 
also has a shift lock. Line length is controlled, as is right and left 
margins and page length. Right justify is optional. Has an indent 
command, that automatically indents a nominated amount in first line 
after an end of paragraph marker. It is tape or disk operation. 

It's capacity is 15K characters, but a very useful feature for 
long documents of ANY length is its auto load and print. You save any 
number of 15K blocks to disks or tapes. To printout, you nominate the 
order, and it loads and prints the lot. Ofcourse, you have to start 
and stop the tape, but disks are automatic, except if you have more 
than 1 disk. then you have to change the disks. 


Now Don will explain the other wordprocessor, the V.Z Quickwrite 
4.7 and Quickwrite 2. 


oU ICEURITE 


In 1983 à completely new word processor program was developed 
by Larry Milburn of QUICKWRITE.This program was called Quickwrite, the 
initial version being Version ii. 

This program was divided into 5 modes namely keyboard,edit,disk,tape X 
set-up mode.I will now quickly describe each mode. 


EEYHOARD MODE 

This will be the mode most commonly used by the user.It is the mode 
used to enter all of the user text.It contains the usual upper/lower 
case select function together with insert,format code 1/r justify 
rubout,tab/indent, rubout,%x control codes.This version only allows the 
user to insert printer control codes at the beginning of a "hard 


copy”. 


EDIT MODE 
This mode contains all the options available with E & F word processor 


namely view, find % replace, copy. cut. .paste,% hard copy print. 


DISC MODE i 
Contains all the options available with the DOS that the V.Z supports, 
with the addition of a label command. 


TAFE MODE. 
Contains the usual command to load & save programs to tape. 


SET-UF MODE. 

Allows the user to select hard copy format (i.e. column length,page 
size,Etc) together with auto disc saving facility,view speed, disc 
drive number, auto save frequency. 


In January 1989 a updated verion was released namely for all those 
users who were lucky enough to have obtained a 464k ram memory 
module.This allowed the user to fully utilize the extra memory 
available giving the user 40k of user file space available compared 
with 20k bytes on a VZ-300 with 16k memory expansion. This is not the 
only benefits to be obtained from from version 4.7. 10 control 
characters are available which enable the user to pre-define printer 
control codes.i.e the printer control codes for "select NLO character" 
(27,120,1) can be defined by an inverse ASCII character 33 to 42. DISC 
MODE has an additional command to save to an "s" file the control 
characters mentioned above.Tape users have the advantage of being able 
to load E & F files % Edas files. 

A program called HAS.CNV is also provided with this program 
which allows the user to convert basic programs to QUICEWRITE files. 


HELF HELF HELP HELF 


I recently had the need to get a ó4k memory expansion repaired by D.S. 
E. because Of bad memory locations in bank 2. D.S.E. replaced the 
Original dynamic ram chips (4364 no longer available) with 4564 (equiv 
to 41647) & now all i get is garbage.Removing the 4564 chips removes 
the problem.I have a feeling that the replacement chips are not 
compatable.Can any one help with some imformation.Any replies can be 
sent to HARRY H. 


TRADING POST 


EPROMS for EXTENDED DOS. and BASIC 
Are available from 


Bob Kitch 
7 Eurella Str. 7 
KENMORE Q'Id. 4069 


FOR SALE 


Word proc. cartridge, DATA CASSETTE RECORDER (DR20) 
JOYSTICKS, PRINTER INTERFACE. 

Reasonable offer. 

John Luxton, 

P.O. Box 99. Biggendin. Q'ld. 4621. 
Ph. 071-27-1515. 


OTHER V Z USER GROUPS 


H.V.V.Z.U.G DISKMAG 

P.O.Box 161 P.O.Box 600. 

JESMOND NSW.2299. Taree NSW. 2430. 

CENT .VIC.COMP ..Club- BRISBANE VZUG 

24 Breen St. 63 Tingalpa St. 
BENDIGO VIC 3550 WYNUM West. Q'ld. 4178 


Graeme Bywater 
P.O.Box 388 
Morley W.A. 6062 


How to write adventure programs. 


David has advised that pressure of school work has delayed 
his articles. 


I trust this is only a temporary hold-up, and that we will 
get them later. | 


I would ask that those that were asked to give him feeddback 
will be patient. (Ed). 


